home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / top10lists.lha / Top10Lists / Top10List < prev   
Text File  |  1995-10-07  |  2KB  |  27 lines
  1. /**************************************************************************\
  2.       $VER: Dave Letterman's Top 10 Lists, v1.2 (7-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; se=sendstring ; bbsidentify name ; bbsname=result
  6.  
  7. city   = 'Buffalo'            /* Edit the City  your bbs is located in.   */
  8. state  = 'New York'           /* Edit the State your bbs is located in.   */
  9. config = 'c d f b c 6 b a 1'  /* Edit the Colors & Wait Time. See README! */
  10.  
  11. parse var config c1' 'c2' 'c3' 'c4' 'c5' 'c6' 'c7' 'c8' 'wt
  12. a=random(1,4,time('s')) ; b=random(1,40,time('s')) ; changewhere "Dave's Top 10!"
  13. call open(f1,'pfiles:Top10Lists/List'||a,'r')
  14. do i=1 to b ; L=readln(f1) ; end i ; call close(f1)
  15. parse var L s'|'e.10'|'e.9'|'e.8'|'e.7'|'e.6'|'e.5'|'e.4'|'e.3'|'e.2'|'e.1
  16. tr 'f1c'c1||center("David Letterman's Top Ten Lister",78)
  17. tr 'c'c2||center("Converted to Amiga CNet by Dotoran.",78)'n1'
  18. tr 'c'c3||center('And From Our Home Office In 'city', 'state':',78)'n1'
  19. tr 'c'c4||center(s,78)'n1c'c5||copies('=',78)'w'wt ; do i=10 to 1 by -1
  20. tr '@4c'c6||right(i,4)'c'c7'> c'c8||e.i'n1w'wt ; end i ; exit
  21.  
  22. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  23.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  24.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  25. /** Last Edited: 7-Oct-95 *************************************************\
  26. \****************************************** Frontiers BBS (716)/823-9892 **/
  27.